inherited dm_cliente: Tdm_cliente
  OldCreateOrder = True
  Left = 301
  Top = 203
  Height = 445
  Width = 905
  inherited sqlConsulta: TSQLQuery
    SQL.Strings = (
      'select'
      '    c.COD_CLIENTE,'
      '    c.LIG_COD_CATEGORIA,'
      '    c.LIG_COD_ATENDENTE,'
      '    c.RAZAO_SOCIAL,'
      '    c.NOME_FANTASIA,'
      '    c.TIPO_PESSOA,'
      '    c.CPF_CNPJ,'
      '    c.RG_IE,'
      '    c.DATA_NASC,'
      '    c.SEXO,'
      '    c.ESTADO_CIVIL,'
      '    c.EMAIL,'
      '    c.TEL_RESIDENCIAL,'
      '    c.TEL_COMERCIAL,'
      '    c.TEL_CELULAR,'
      '    c.TEL_FAX,'
      '    c.INSC_SUFRAMA,'
      '    coalesce(c.LIMITE_CREDITO,0) as LIMITE_CREDITO,'
      
        '    coalesce(c.limite_credito_disponivel,0) as LIMITE_CREDITO_DI' +
        'SPONIVEL,'
      '    c.SITUACAO,'
      '    case'
      '        when c.situacao = '#39'True'#39' then '#39'ATIVO'#39' else '#39'INATIVO'#39
      '    end as SITUACAO_DESC,'
      '    c.SITUACAO_CADASTRO,'
      '    c.CLI_ESPORADICO,'
      '    case'
      '        when c.cli_esporadico = '#39'True'#39' then '#39'Sim'#39' else '#39'N'#227'o'#39
      '    end as CLI_ESPORADICO_DESC,'
      '    c.CLI_CONSUMIDOR_FINAL,'
      '    case'
      
        '        when c.cli_consumidor_final = '#39'True'#39' then '#39'Sim'#39' else '#39'N'#227 +
        'o'#39
      '    end as CLI_CONSUMIDOR_FINAL_DESC,'
      '    c.CLI_EXPORTACAO,'
      '    case'
      '        when c.cli_exportacao = '#39'True'#39' then '#39'Sim'#39' else '#39'N'#227'o'#39
      '    end as CLI_EXPORTACAO_DESC,'
      '    c.CLI_ISENTO_ICMS,'
      '    case'
      '        when c.cli_isento_icms = '#39'True'#39' then '#39'Sim'#39' else '#39'N'#227'o'#39
      '    end as CLI_ISENTO_ICMS_DESC,'
      '    c.CLI_PRODUTOR_RURAL,'
      '    case'
      '        when c.cli_produtor_rural = '#39'True'#39' then '#39'Sim'#39' else '#39'N'#227'o'#39
      '    end as CLI_PRODUTOR_RURAL_DESC,'
      '    c.CLI_FORNECEDOR,'
      '    case'
      '        when c.cli_fornecedor = '#39'True'#39' then '#39'Sim'#39' else '#39'N'#227'o'#39
      '    end as CLI_FORNECEDOR_DESC,'
      '    c.INFORMAR_SIT_CADASTRO,'
      '    c.TRABALHO_EMPRESA,'
      '    c.TRABALHO_PROFISSAO,'
      '    c.TRABALHO_CARGO,'
      '    c.TRABALHO_TELEFONE,'
      '    c.TRABALHO_SUPERVISOR,'
      '    c.TRABALHO_TEMPO_MESES,'
      '    c.TRABALHO_SALARIO,'
      '    c.TRABALHO_CEP,'
      '    c.TRABALHO_ENDERECO,'
      '    c.TRABALHO_NUMERO,'
      '    c.TRABALHO_COMPLEMENTO,'
      '    c.TRABALHO_BAIRRO,'
      '    c.TRABALHO_LOCALIDADE,'
      '    c.TRABALHO_UF,'
      '    c.TRABALHO_OBS,'
      '    c.TRABALHO_OUTROS,'
      '    c.OBS,'
      '    c.PAGINA_WEB,'
      '    c.DATA_CAD,'
      '    c.DATA_ALTERACAO,'
      '    a.descricao as atendente,'
      '    b.descricao as categoria'
      'from cliente c'
      
        'left join funcionario a on (a.cod_funcionario = c.lig_cod_atende' +
        'nte)'
      
        'left join cliente_categoria b on (b.cod_categoria = c.lig_cod_ca' +
        'tegoria)')
    Left = 384
  end
  inherited dspConsulta: TDataSetProvider
    Left = 384
  end
  inherited cdsConsulta: TClientDataSet
    Left = 384
    object cdsConsultaCOD_CLIENTE: TIntegerField
      FieldName = 'COD_CLIENTE'
      Required = True
    end
    object cdsConsultaLIG_COD_CATEGORIA: TIntegerField
      FieldName = 'LIG_COD_CATEGORIA'
    end
    object cdsConsultaLIG_COD_ATENDENTE: TIntegerField
      FieldName = 'LIG_COD_ATENDENTE'
    end
    object cdsConsultaRAZAO_SOCIAL: TStringField
      FieldName = 'RAZAO_SOCIAL'
      Required = True
      Size = 100
    end
    object cdsConsultaNOME_FANTASIA: TStringField
      FieldName = 'NOME_FANTASIA'
      Size = 100
    end
    object cdsConsultaTIPO_PESSOA: TStringField
      FieldName = 'TIPO_PESSOA'
      Required = True
      Size = 10
    end
    object cdsConsultaCPF_CNPJ: TStringField
      FieldName = 'CPF_CNPJ'
      Required = True
    end
    object cdsConsultaRG_IE: TStringField
      FieldName = 'RG_IE'
    end
    object cdsConsultaDATA_NASC: TDateField
      FieldName = 'DATA_NASC'
    end
    object cdsConsultaSEXO: TStringField
      FieldName = 'SEXO'
      Size = 10
    end
    object cdsConsultaESTADO_CIVIL: TStringField
      FieldName = 'ESTADO_CIVIL'
      Size = 10
    end
    object cdsConsultaEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 100
    end
    object cdsConsultaTEL_RESIDENCIAL: TStringField
      FieldName = 'TEL_RESIDENCIAL'
      Size = 15
    end
    object cdsConsultaTEL_COMERCIAL: TStringField
      FieldName = 'TEL_COMERCIAL'
      Size = 15
    end
    object cdsConsultaTEL_CELULAR: TStringField
      FieldName = 'TEL_CELULAR'
      Size = 15
    end
    object cdsConsultaTEL_FAX: TStringField
      FieldName = 'TEL_FAX'
      Size = 15
    end
    object cdsConsultaINSC_SUFRAMA: TStringField
      FieldName = 'INSC_SUFRAMA'
      Size = 30
    end
    object cdsConsultaLIMITE_CREDITO: TFMTBCDField
      DisplayLabel = ',0.00'
      FieldName = 'LIMITE_CREDITO'
      EditFormat = ',0.00'
      currency = True
      Precision = 15
      Size = 2
    end
    object cdsConsultaLIMITE_CREDITO_DISPONIVEL: TFMTBCDField
      DisplayLabel = ',0.00'
      FieldName = 'LIMITE_CREDITO_DISPONIVEL'
      EditFormat = ',0.00'
      currency = True
      Precision = 15
      Size = 2
    end
    object cdsConsultaSITUACAO: TStringField
      FieldName = 'SITUACAO'
      Size = 5
    end
    object cdsConsultaSITUACAO_DESC: TStringField
      FieldName = 'SITUACAO_DESC'
      Required = True
      FixedChar = True
      Size = 7
    end
    object cdsConsultaSITUACAO_CADASTRO: TStringField
      FieldName = 'SITUACAO_CADASTRO'
      Size = 10
    end
    object cdsConsultaCLI_ESPORADICO: TStringField
      FieldName = 'CLI_ESPORADICO'
      Size = 5
    end
    object cdsConsultaCLI_ESPORADICO_DESC: TStringField
      FieldName = 'CLI_ESPORADICO_DESC'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cdsConsultaCLI_CONSUMIDOR_FINAL: TStringField
      FieldName = 'CLI_CONSUMIDOR_FINAL'
      Size = 5
    end
    object cdsConsultaCLI_CONSUMIDOR_FINAL_DESC: TStringField
      FieldName = 'CLI_CONSUMIDOR_FINAL_DESC'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cdsConsultaCLI_EXPORTACAO: TStringField
      FieldName = 'CLI_EXPORTACAO'
      Size = 5
    end
    object cdsConsultaCLI_EXPORTACAO_DESC: TStringField
      FieldName = 'CLI_EXPORTACAO_DESC'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cdsConsultaCLI_ISENTO_ICMS: TStringField
      FieldName = 'CLI_ISENTO_ICMS'
      Size = 5
    end
    object cdsConsultaCLI_ISENTO_ICMS_DESC: TStringField
      FieldName = 'CLI_ISENTO_ICMS_DESC'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cdsConsultaCLI_PRODUTOR_RURAL: TStringField
      FieldName = 'CLI_PRODUTOR_RURAL'
      Size = 5
    end
    object cdsConsultaCLI_PRODUTOR_RURAL_DESC: TStringField
      FieldName = 'CLI_PRODUTOR_RURAL_DESC'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cdsConsultaCLI_FORNECEDOR: TStringField
      FieldName = 'CLI_FORNECEDOR'
      Size = 5
    end
    object cdsConsultaCLI_FORNECEDOR_DESC: TStringField
      FieldName = 'CLI_FORNECEDOR_DESC'
      Required = True
      FixedChar = True
      Size = 3
    end
    object cdsConsultaINFORMAR_SIT_CADASTRO: TStringField
      FieldName = 'INFORMAR_SIT_CADASTRO'
      Size = 5
    end
    object cdsConsultaTRABALHO_EMPRESA: TStringField
      FieldName = 'TRABALHO_EMPRESA'
      Size = 100
    end
    object cdsConsultaTRABALHO_PROFISSAO: TStringField
      FieldName = 'TRABALHO_PROFISSAO'
      Size = 100
    end
    object cdsConsultaTRABALHO_CARGO: TStringField
      FieldName = 'TRABALHO_CARGO'
      Size = 100
    end
    object cdsConsultaTRABALHO_TELEFONE: TStringField
      FieldName = 'TRABALHO_TELEFONE'
      Size = 15
    end
    object cdsConsultaTRABALHO_SUPERVISOR: TStringField
      FieldName = 'TRABALHO_SUPERVISOR'
      Size = 100
    end
    object cdsConsultaTRABALHO_TEMPO_MESES: TIntegerField
      FieldName = 'TRABALHO_TEMPO_MESES'
    end
    object cdsConsultaTRABALHO_SALARIO: TFMTBCDField
      FieldName = 'TRABALHO_SALARIO'
      Precision = 15
      Size = 2
    end
    object cdsConsultaTRABALHO_CEP: TStringField
      FieldName = 'TRABALHO_CEP'
      Size = 10
    end
    object cdsConsultaTRABALHO_ENDERECO: TStringField
      FieldName = 'TRABALHO_ENDERECO'
      Size = 100
    end
    object cdsConsultaTRABALHO_NUMERO: TStringField
      FieldName = 'TRABALHO_NUMERO'
      Size = 4
    end
    object cdsConsultaTRABALHO_COMPLEMENTO: TStringField
      FieldName = 'TRABALHO_COMPLEMENTO'
      Size = 100
    end
    object cdsConsultaTRABALHO_BAIRRO: TStringField
      FieldName = 'TRABALHO_BAIRRO'
      Size = 100
    end
    object cdsConsultaTRABALHO_LOCALIDADE: TStringField
      FieldName = 'TRABALHO_LOCALIDADE'
      Size = 100
    end
    object cdsConsultaTRABALHO_UF: TStringField
      FieldName = 'TRABALHO_UF'
      FixedChar = True
      Size = 2
    end
    object cdsConsultaTRABALHO_OBS: TStringField
      FieldName = 'TRABALHO_OBS'
      Size = 10000
    end
    object cdsConsultaTRABALHO_OUTROS: TStringField
      FieldName = 'TRABALHO_OUTROS'
      Size = 500
    end
    object cdsConsultaOBS: TStringField
      FieldName = 'OBS'
      Size = 10000
    end
    object cdsConsultaPAGINA_WEB: TStringField
      FieldName = 'PAGINA_WEB'
      Size = 100
    end
    object cdsConsultaDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object cdsConsultaDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
    object cdsConsultaATENDENTE: TStringField
      FieldName = 'ATENDENTE'
      Size = 100
    end
    object cdsConsultaCATEGORIA: TStringField
      FieldName = 'CATEGORIA'
      Size = 100
    end
    object cdsConsultasqlConsultaAutorizado: TDataSetField
      FieldName = 'sqlConsultaAutorizado'
    end
    object cdsConsultasqlConsultaEndereco: TDataSetField
      FieldName = 'sqlConsultaEndereco'
    end
  end
  inherited qryPKChave: TSQLQuery
    SQL.Strings = (
      'SELECT GEN_ID(gen_cliente,1)'
      'FROM RDB$DATABASE')
    Left = 539
    Top = 180
  end
  inherited dspRegistro: TDataSetProvider
    Options = [poCascadeDeletes, poCascadeUpdates]
    Left = 456
  end
  inherited cdsRegistro: TClientDataSet
    OnReconcileError = cdsRegistroReconcileError
    Left = 456
    object cdsRegistroCOD_CLIENTE: TIntegerField
      FieldName = 'COD_CLIENTE'
      Required = True
    end
    object cdsRegistroLIG_COD_CATEGORIA: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_CATEGORIA'
    end
    object cdsRegistroLIG_COD_ATENDENTE: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_ATENDENTE'
    end
    object cdsRegistroRAZAO_SOCIAL: TStringField
      FieldName = 'RAZAO_SOCIAL'
      Required = True
      Size = 100
    end
    object cdsRegistroNOME_FANTASIA: TStringField
      FieldName = 'NOME_FANTASIA'
      Size = 100
    end
    object cdsRegistroTIPO_PESSOA: TStringField
      FieldName = 'TIPO_PESSOA'
      Required = True
      Size = 10
    end
    object cdsRegistroCPF_CNPJ: TStringField
      FieldName = 'CPF_CNPJ'
      Required = True
    end
    object cdsRegistroRG_IE: TStringField
      FieldName = 'RG_IE'
    end
    object cdsRegistroDATA_NASC: TDateField
      FieldName = 'DATA_NASC'
    end
    object cdsRegistroSEXO: TStringField
      FieldName = 'SEXO'
      Size = 10
    end
    object cdsRegistroESTADO_CIVIL: TStringField
      FieldName = 'ESTADO_CIVIL'
      Size = 10
    end
    object cdsRegistroEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 100
    end
    object cdsRegistroTEL_RESIDENCIAL: TStringField
      FieldName = 'TEL_RESIDENCIAL'
      Size = 15
    end
    object cdsRegistroTEL_COMERCIAL: TStringField
      FieldName = 'TEL_COMERCIAL'
      Size = 15
    end
    object cdsRegistroTEL_CELULAR: TStringField
      FieldName = 'TEL_CELULAR'
      Size = 15
    end
    object cdsRegistroTEL_FAX: TStringField
      FieldName = 'TEL_FAX'
      Size = 15
    end
    object cdsRegistroINSC_SUFRAMA: TStringField
      FieldName = 'INSC_SUFRAMA'
      Size = 30
    end
    object cdsRegistroLIMITE_CREDITO: TFMTBCDField
      FieldName = 'LIMITE_CREDITO'
      DisplayFormat = ',0.00'
      EditFormat = ',0.00'
      currency = True
      Precision = 15
      Size = 2
    end
    object cdsRegistroLIMITE_CREDITO_DISPONIVEL: TFMTBCDField
      FieldName = 'LIMITE_CREDITO_DISPONIVEL'
      DisplayFormat = ',0.00'
      EditFormat = ',0.00'
      currency = True
      Precision = 15
      Size = 2
    end
    object cdsRegistroSITUACAO: TStringField
      FieldName = 'SITUACAO'
      Size = 5
    end
    object cdsRegistroSITUACAO_CADASTRO: TStringField
      FieldName = 'SITUACAO_CADASTRO'
      Size = 10
    end
    object cdsRegistroCLI_ESPORADICO: TStringField
      FieldName = 'CLI_ESPORADICO'
      Size = 5
    end
    object cdsRegistroCLI_CONSUMIDOR_FINAL: TStringField
      FieldName = 'CLI_CONSUMIDOR_FINAL'
      Size = 5
    end
    object cdsRegistroCLI_EXPORTACAO: TStringField
      FieldName = 'CLI_EXPORTACAO'
      Size = 5
    end
    object cdsRegistroCLI_ISENTO_ICMS: TStringField
      FieldName = 'CLI_ISENTO_ICMS'
      Size = 5
    end
    object cdsRegistroCLI_PRODUTOR_RURAL: TStringField
      FieldName = 'CLI_PRODUTOR_RURAL'
      Size = 5
    end
    object cdsRegistroCLI_FORNECEDOR: TStringField
      FieldName = 'CLI_FORNECEDOR'
      Size = 5
    end
    object cdsRegistroINFORMAR_SIT_CADASTRO: TStringField
      FieldName = 'INFORMAR_SIT_CADASTRO'
      Size = 5
    end
    object cdsRegistroTRABALHO_EMPRESA: TStringField
      FieldName = 'TRABALHO_EMPRESA'
      Size = 100
    end
    object cdsRegistroTRABALHO_PROFISSAO: TStringField
      FieldName = 'TRABALHO_PROFISSAO'
      Size = 100
    end
    object cdsRegistroTRABALHO_CARGO: TStringField
      FieldName = 'TRABALHO_CARGO'
      Size = 100
    end
    object cdsRegistroTRABALHO_TELEFONE: TStringField
      FieldName = 'TRABALHO_TELEFONE'
      Size = 15
    end
    object cdsRegistroTRABALHO_SUPERVISOR: TStringField
      FieldName = 'TRABALHO_SUPERVISOR'
      Size = 100
    end
    object cdsRegistroTRABALHO_TEMPO_MESES: TIntegerField
      FieldName = 'TRABALHO_TEMPO_MESES'
    end
    object cdsRegistroTRABALHO_SALARIO: TFMTBCDField
      FieldName = 'TRABALHO_SALARIO'
      Precision = 15
      Size = 2
    end
    object cdsRegistroTRABALHO_CEP: TStringField
      FieldName = 'TRABALHO_CEP'
      Size = 10
    end
    object cdsRegistroTRABALHO_ENDERECO: TStringField
      FieldName = 'TRABALHO_ENDERECO'
      Size = 100
    end
    object cdsRegistroTRABALHO_NUMERO: TStringField
      FieldName = 'TRABALHO_NUMERO'
      Size = 4
    end
    object cdsRegistroTRABALHO_COMPLEMENTO: TStringField
      FieldName = 'TRABALHO_COMPLEMENTO'
      Size = 100
    end
    object cdsRegistroTRABALHO_BAIRRO: TStringField
      FieldName = 'TRABALHO_BAIRRO'
      Size = 100
    end
    object cdsRegistroTRABALHO_LOCALIDADE: TStringField
      FieldName = 'TRABALHO_LOCALIDADE'
      Size = 100
    end
    object cdsRegistroTRABALHO_UF: TStringField
      FieldName = 'TRABALHO_UF'
      FixedChar = True
      Size = 2
    end
    object cdsRegistroTRABALHO_OBS: TStringField
      FieldName = 'TRABALHO_OBS'
      Size = 10000
    end
    object cdsRegistroTRABALHO_OUTROS: TStringField
      FieldName = 'TRABALHO_OUTROS'
      Size = 500
    end
    object cdsRegistroOBS: TStringField
      FieldName = 'OBS'
      Size = 10000
    end
    object cdsRegistroPAGINA_WEB: TStringField
      FieldName = 'PAGINA_WEB'
      Size = 100
    end
    object cdsRegistroDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object cdsRegistroDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
    object cdsRegistrosqlClienteAutorizado: TDataSetField
      FieldName = 'sqlClienteAutorizado'
    end
    object cdsRegistrosqlClienteEndereco: TDataSetField
      FieldName = 'sqlClienteEndereco'
    end
  end
  inherited sqlRegistro: TSQLQuery
    Params = <
      item
        DataType = ftInteger
        Name = 'cod_cliente'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'select'
      '    c.COD_CLIENTE,'
      '    c.LIG_COD_CATEGORIA,'
      '    c.LIG_COD_ATENDENTE,'
      '    c.RAZAO_SOCIAL,'
      '    c.NOME_FANTASIA,'
      '    c.TIPO_PESSOA,'
      '    c.CPF_CNPJ,'
      '    c.RG_IE,'
      '    c.DATA_NASC,'
      '    c.SEXO,'
      '    c.ESTADO_CIVIL,'
      '    c.EMAIL,'
      '    c.TEL_RESIDENCIAL,'
      '    c.TEL_COMERCIAL,'
      '    c.TEL_CELULAR,'
      '    c.TEL_FAX,'
      '    c.INSC_SUFRAMA,'
      '    c.LIMITE_CREDITO,'
      '    c.LIMITE_CREDITO_DISPONIVEL,'
      '    c.SITUACAO,'
      '    c.SITUACAO_CADASTRO,'
      '    c.CLI_ESPORADICO,'
      '    c.CLI_CONSUMIDOR_FINAL,'
      '    c.CLI_EXPORTACAO,'
      '    c.CLI_ISENTO_ICMS,'
      '    c.CLI_PRODUTOR_RURAL,'
      '    c.CLI_FORNECEDOR,'
      '    c.INFORMAR_SIT_CADASTRO,'
      '    c.TRABALHO_EMPRESA,'
      '    c.TRABALHO_PROFISSAO,'
      '    c.TRABALHO_CARGO,'
      '    c.TRABALHO_TELEFONE,'
      '    c.TRABALHO_SUPERVISOR,'
      '    c.TRABALHO_TEMPO_MESES,'
      '    c.TRABALHO_SALARIO,'
      '    c.TRABALHO_CEP,'
      '    c.TRABALHO_ENDERECO,'
      '    c.TRABALHO_NUMERO,'
      '    c.TRABALHO_COMPLEMENTO,'
      '    c.TRABALHO_BAIRRO,'
      '    c.TRABALHO_LOCALIDADE,'
      '    c.TRABALHO_UF,'
      '    c.TRABALHO_OBS,'
      '    c.TRABALHO_OUTROS,'
      '    c.OBS,'
      '    c.PAGINA_WEB,'
      '    c.DATA_CAD,'
      '    c.DATA_ALTERACAO'
      'from CLIENTE c'
      'where c.cod_cliente = :cod_cliente')
    Left = 456
  end
  object dsMestre_Detalhe_Consulta: TDataSource
    DataSet = sqlConsulta
    Left = 281
    Top = 18
  end
  object sqlConsultaEndereco: TSQLQuery
    DataSource = dsMestre_Detalhe_Consulta
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_CLIENTE'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '    ce.cod_endereco,'
      '    ce.lig_cod_cliente,'
      '    ce.lig_cod_tipo_endereco,'
      '    ce.cep,'
      '    ce.endereco,'
      '    ce.numero,'
      '    ce.complemento,'
      '    ce.bairro,'
      '    ce.localidade,'
      '    ce.uf,'
      '    ce.data_cad,'
      '    ce.data_alteracao,'
      '    a.descricao as tipo_endereco'
      'from CLIENTE_ENDERECO ce'
      
        'left join tipo_endereco a on (a.cod_tipo_endereco = ce.lig_cod_t' +
        'ipo_endereco)'
      'where ce.lig_cod_cliente = :cod_cliente'
      'order by a.descricao')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 153
    Top = 18
    object sqlConsultaEnderecoCOD_ENDERECO: TIntegerField
      FieldName = 'COD_ENDERECO'
      Required = True
    end
    object sqlConsultaEnderecoLIG_COD_CLIENTE: TIntegerField
      FieldName = 'LIG_COD_CLIENTE'
      Required = True
    end
    object sqlConsultaEnderecoLIG_COD_TIPO_ENDERECO: TIntegerField
      FieldName = 'LIG_COD_TIPO_ENDERECO'
      Required = True
    end
    object sqlConsultaEnderecoCEP: TStringField
      FieldName = 'CEP'
      Required = True
      Size = 10
    end
    object sqlConsultaEnderecoENDERECO: TStringField
      FieldName = 'ENDERECO'
      Required = True
      Size = 100
    end
    object sqlConsultaEnderecoNUMERO: TStringField
      FieldName = 'NUMERO'
      Required = True
      Size = 4
    end
    object sqlConsultaEnderecoCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 100
    end
    object sqlConsultaEnderecoBAIRRO: TStringField
      FieldName = 'BAIRRO'
      Required = True
      Size = 100
    end
    object sqlConsultaEnderecoLOCALIDADE: TStringField
      FieldName = 'LOCALIDADE'
      Required = True
      Size = 100
    end
    object sqlConsultaEnderecoUF: TStringField
      FieldName = 'UF'
      FixedChar = True
      Size = 2
    end
    object sqlConsultaEnderecoDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object sqlConsultaEnderecoDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
    object sqlConsultaEnderecoTIPO_ENDERECO: TStringField
      FieldName = 'TIPO_ENDERECO'
      Size = 100
    end
  end
  object cdsConsultaEndereco: TClientDataSet
    Aggregates = <>
    DataSetField = cdsConsultasqlConsultaEndereco
    Params = <>
    Left = 41
    Top = 18
  end
  object cdsConsultaAutorizado: TClientDataSet
    Aggregates = <>
    DataSetField = cdsConsultasqlConsultaAutorizado
    Params = <>
    Left = 41
    Top = 66
    object cdsConsultaAutorizadoCOD_AUTORIZADO: TIntegerField
      FieldName = 'COD_AUTORIZADO'
      Required = True
    end
    object cdsConsultaAutorizadoLIG_COD_CLIENTE: TIntegerField
      FieldName = 'LIG_COD_CLIENTE'
      Required = True
    end
    object cdsConsultaAutorizadoDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object cdsConsultaAutorizadoDOCUMENTO: TStringField
      FieldName = 'DOCUMENTO'
      Required = True
    end
    object cdsConsultaAutorizadoPARENTESCO: TStringField
      FieldName = 'PARENTESCO'
      Required = True
    end
    object cdsConsultaAutorizadoDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object cdsConsultaAutorizadoDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
  end
  object sqlConsultaAutorizado: TSQLQuery
    DataSource = dsMestre_Detalhe_Consulta
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_CLIENTE'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '  ca.cod_autorizado,'
      '  ca.lig_cod_cliente,'
      '  ca.descricao,'
      '  ca.documento,'
      '  ca.parentesco,'
      '  ca.data_cad,'
      '  ca.data_alteracao'
      'from CLIENTE_AUTORIZADO ca'
      'where ca.lig_cod_cliente = :cod_cliente'
      'order by ca.descricao')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 153
    Top = 66
    object sqlConsultaAutorizadoCOD_AUTORIZADO: TIntegerField
      FieldName = 'COD_AUTORIZADO'
      Required = True
    end
    object sqlConsultaAutorizadoLIG_COD_CLIENTE: TIntegerField
      FieldName = 'LIG_COD_CLIENTE'
      Required = True
    end
    object sqlConsultaAutorizadoDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object sqlConsultaAutorizadoDOCUMENTO: TStringField
      FieldName = 'DOCUMENTO'
      Required = True
    end
    object sqlConsultaAutorizadoPARENTESCO: TStringField
      FieldName = 'PARENTESCO'
      Required = True
    end
    object sqlConsultaAutorizadoDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object sqlConsultaAutorizadoDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
  end
  object dsMestre_Detalhe: TDataSource
    DataSet = sqlRegistro
    Left = 539
    Top = 18
  end
  object sqlClienteEndereco: TSQLQuery
    DataSource = dsMestre_Detalhe
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_CLIENTE'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '    ce.cod_endereco,'
      '    ce.lig_cod_cliente,'
      '    ce.lig_cod_tipo_endereco,'
      '    ce.cep,'
      '    ce.endereco,'
      '    ce.numero,'
      '    ce.complemento,'
      '    ce.bairro,'
      '    ce.localidade,'
      '    ce.uf,'
      '    ce.data_cad,'
      '    ce.data_alteracao,'
      '    a.descricao as tipo_endereco'
      'from CLIENTE_ENDERECO ce'
      
        'left join tipo_endereco a on (a.cod_tipo_endereco = ce.lig_cod_t' +
        'ipo_endereco)'
      'where ce.lig_cod_cliente = :cod_cliente')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 635
    Top = 18
    object sqlClienteEnderecoCOD_ENDERECO: TIntegerField
      FieldName = 'COD_ENDERECO'
      Required = True
    end
    object sqlClienteEnderecoLIG_COD_CLIENTE: TIntegerField
      FieldName = 'LIG_COD_CLIENTE'
      Required = True
    end
    object sqlClienteEnderecoLIG_COD_TIPO_ENDERECO: TIntegerField
      FieldName = 'LIG_COD_TIPO_ENDERECO'
      Required = True
    end
    object sqlClienteEnderecoCEP: TStringField
      FieldName = 'CEP'
      Required = True
      Size = 10
    end
    object sqlClienteEnderecoENDERECO: TStringField
      FieldName = 'ENDERECO'
      Required = True
      Size = 100
    end
    object sqlClienteEnderecoNUMERO: TStringField
      FieldName = 'NUMERO'
      Required = True
      Size = 4
    end
    object sqlClienteEnderecoCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 100
    end
    object sqlClienteEnderecoBAIRRO: TStringField
      FieldName = 'BAIRRO'
      Required = True
      Size = 100
    end
    object sqlClienteEnderecoLOCALIDADE: TStringField
      FieldName = 'LOCALIDADE'
      Required = True
      Size = 100
    end
    object sqlClienteEnderecoUF: TStringField
      FieldName = 'UF'
      FixedChar = True
      Size = 2
    end
    object sqlClienteEnderecoDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object sqlClienteEnderecoDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
    object sqlClienteEnderecoTIPO_ENDERECO: TStringField
      FieldName = 'TIPO_ENDERECO'
      ProviderFlags = []
      Size = 100
    end
  end
  object cdsClienteEndereco: TClientDataSet
    Aggregates = <>
    DataSetField = cdsRegistrosqlClienteEndereco
    Params = <>
    Left = 739
    Top = 18
    object cdsClienteEnderecoCOD_ENDERECO: TIntegerField
      FieldName = 'COD_ENDERECO'
      Required = True
    end
    object cdsClienteEnderecoLIG_COD_CLIENTE: TIntegerField
      FieldName = 'LIG_COD_CLIENTE'
      Required = True
    end
    object cdsClienteEnderecoLIG_COD_TIPO_ENDERECO: TIntegerField
      FieldName = 'LIG_COD_TIPO_ENDERECO'
      Required = True
    end
    object cdsClienteEnderecoCEP: TStringField
      FieldName = 'CEP'
      Required = True
      Size = 10
    end
    object cdsClienteEnderecoENDERECO: TStringField
      FieldName = 'ENDERECO'
      Required = True
      Size = 100
    end
    object cdsClienteEnderecoNUMERO: TStringField
      FieldName = 'NUMERO'
      Required = True
      Size = 4
    end
    object cdsClienteEnderecoCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 100
    end
    object cdsClienteEnderecoBAIRRO: TStringField
      FieldName = 'BAIRRO'
      Required = True
      Size = 100
    end
    object cdsClienteEnderecoLOCALIDADE: TStringField
      FieldName = 'LOCALIDADE'
      Required = True
      Size = 100
    end
    object cdsClienteEnderecoUF: TStringField
      FieldName = 'UF'
      FixedChar = True
      Size = 2
    end
    object cdsClienteEnderecoDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object cdsClienteEnderecoDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
    object cdsClienteEnderecoTIPO_ENDERECO: TStringField
      FieldName = 'TIPO_ENDERECO'
      ProviderFlags = []
      Size = 100
    end
  end
  object cdsClienteAutorizado: TClientDataSet
    Aggregates = <>
    DataSetField = cdsRegistrosqlClienteAutorizado
    Params = <>
    Left = 739
    Top = 66
    object cdsClienteAutorizadoCOD_AUTORIZADO: TIntegerField
      FieldName = 'COD_AUTORIZADO'
      Required = True
    end
    object cdsClienteAutorizadoLIG_COD_CLIENTE: TIntegerField
      FieldName = 'LIG_COD_CLIENTE'
      Required = True
    end
    object cdsClienteAutorizadoDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object cdsClienteAutorizadoDOCUMENTO: TStringField
      FieldName = 'DOCUMENTO'
      Required = True
    end
    object cdsClienteAutorizadoPARENTESCO: TStringField
      FieldName = 'PARENTESCO'
      Required = True
    end
    object cdsClienteAutorizadoDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object cdsClienteAutorizadoDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
  end
  object sqlClienteAutorizado: TSQLQuery
    DataSource = dsMestre_Detalhe
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_CLIENTE'
        ParamType = ptInput
        Size = 4
      end>
    SQL.Strings = (
      'select'
      '  ca.cod_autorizado,'
      '  ca.lig_cod_cliente,'
      '  ca.descricao,'
      '  ca.documento,'
      '  ca.parentesco,'
      '  ca.data_cad,'
      '  ca.data_alteracao'
      'from CLIENTE_AUTORIZADO ca'
      'where ca.lig_cod_cliente = :cod_cliente')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 635
    Top = 66
    object sqlClienteAutorizadoCOD_AUTORIZADO: TIntegerField
      FieldName = 'COD_AUTORIZADO'
      Required = True
    end
    object sqlClienteAutorizadoLIG_COD_CLIENTE: TIntegerField
      FieldName = 'LIG_COD_CLIENTE'
      Required = True
    end
    object sqlClienteAutorizadoDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object sqlClienteAutorizadoDOCUMENTO: TStringField
      FieldName = 'DOCUMENTO'
      Required = True
    end
    object sqlClienteAutorizadoPARENTESCO: TStringField
      FieldName = 'PARENTESCO'
      Required = True
    end
    object sqlClienteAutorizadoDATA_CAD: TDateField
      FieldName = 'DATA_CAD'
    end
    object sqlClienteAutorizadoDATA_ALTERACAO: TDateField
      FieldName = 'DATA_ALTERACAO'
    end
  end
  object sqlTipoEndereco: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'select'
      '  t.cod_tipo_endereco,'
      '  t.descricao'
      'from tipo_endereco t'
      'where t.situacao = '#39'True'#39
      'order by t.descricao')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 280
    Top = 114
  end
  object dspTipoEndereco: TDataSetProvider
    DataSet = sqlTipoEndereco
    Left = 280
    Top = 162
  end
  object cdsTipoEndereco: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspTipoEndereco'
    Left = 280
    Top = 210
  end
  object cdsAuxEndereco: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 43
    Top = 194
    Data = {
      1A0100009619E0BD0100000018000000090000000000030000001A01144C4947
      5F434F445F5449504F454E44455245434F04000100000000000D5449504F5F45
      4E44455245434F01004900000001000557494454480200020064000343455001
      00490000000100055749445448020002000A0008454E44455245434F01004900
      00000100055749445448020002006400064E554D45524F010049000000010005
      57494454480200020005000B434F4D504C454D454E544F010049000000010005
      57494454480200020064000642414952524F0100490000000100055749445448
      0200020064000A4C4F43414C4944414445010049000000010005574944544802
      000200640002554601004900000001000557494454480200020002000000}
    object cdsAuxEnderecoLIG_COD_TIPOENDERECO: TIntegerField
      FieldName = 'LIG_COD_TIPOENDERECO'
    end
    object cdsAuxEnderecoTIPO_ENDERECO: TStringField
      FieldName = 'TIPO_ENDERECO'
      Size = 100
    end
    object cdsAuxEnderecoCEP: TStringField
      FieldName = 'CEP'
      Size = 10
    end
    object cdsAuxEnderecoENDERECO: TStringField
      FieldName = 'ENDERECO'
      Size = 100
    end
    object cdsAuxEnderecoNUMERO: TStringField
      FieldName = 'NUMERO'
      Size = 5
    end
    object cdsAuxEnderecoCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      Size = 100
    end
    object cdsAuxEnderecoBAIRRO: TStringField
      FieldName = 'BAIRRO'
      Size = 100
    end
    object cdsAuxEnderecoLOCALIDADE: TStringField
      FieldName = 'LOCALIDADE'
      Size = 100
    end
    object cdsAuxEnderecoUF: TStringField
      FieldName = 'UF'
      Size = 2
    end
  end
  object cdsAuxAutorizado: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 139
    Top = 194
    Data = {
      750000009619E0BD010000001800000003000000000003000000750009444553
      43524943414F010049000000010005574944544802000200640009444F43554D
      454E544F01004900000001000557494454480200020014000A504152454E5445
      53434F01004900000001000557494454480200020014000000}
    object cdsAuxAutorizadoDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 100
    end
    object cdsAuxAutorizadoDOCUMENTO: TStringField
      FieldName = 'DOCUMENTO'
    end
    object cdsAuxAutorizadoPARENTESCO: TStringField
      FieldName = 'PARENTESCO'
    end
  end
  object qryPK_ClienteAutorizado: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'SELECT GEN_ID(gen_cliente_autorizado,1)'
      'FROM RDB$DATABASE')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 763
    Top = 180
    object qryPK_ClienteAutorizadoGEN_ID: TFMTBCDField
      FieldName = 'GEN_ID'
      Required = True
      Precision = 15
      Size = 0
    end
  end
  object qryPK_ClienteEndereco: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'SELECT GEN_ID(gen_cliente_endereco,1)'
      'FROM RDB$DATABASE')
    SQLConnection = dmGeral.SQLConnectionBD
    Left = 635
    Top = 180
    object qryPK_ClienteEnderecoGEN_ID: TFMTBCDField
      FieldName = 'GEN_ID'
      Required = True
      Precision = 15
      Size = 0
    end
  end
end
